home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / insert_t.lha / insert_text_clip.rexx < prev    next >
OS/2 REXX Batch file  |  1995-09-25  |  693b  |  25 lines
  1. /* Inset Text                                          */
  2. /* This macro gets a filename, reads the file into the */
  3. /* clipboard, then inserts it into FC/FW               */
  4. /* requires rexxreqtools.lib, rexxutil.lib and         */
  5. /* rexxsupport.lib                                     */
  6. /* Mike Fitzgerald (mrfitz@groupz.net) 25 Sep 95       */
  7.  
  8. options results
  9. call addlib('rexxutil.library',0,-30)
  10. call addlib('rexxsupport.library',0,-30)
  11. call addlib('rexxreqtools.library',5,-30)
  12. result = rtfilerequest(,,,'_Insert')
  13. plip=result
  14. if plip="" then exit
  15. call open(clip,plip,'r')
  16. a=1
  17. do until eof(clip)
  18. tip.a=readln(clip)
  19. a=a+1
  20. end
  21. call close(clip)
  22. tip.0=a
  23. call writeclip(tip.,STEM,,0)
  24. paste
  25.